home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ IE Options 2.xpl < prev    next >
Text File  |  1999-07-16  |  2KB  |  67 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Explorer\System"
  5. "NAME"="AutoComplete Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.0"
  8. "TEXT 1"="Use AutoComplete for URLs and paths"
  9. "TEXT 2"="Use AutoComplete for web forms"
  10. "TEXT 3"="Use AutoComplete for passwords in web forms"
  11. "DESCRIPTION 1"="Internet Explorer has a feature called "AutoComplete". If this is activated, IE can automatically remember the entries that were entered in a web form. "
  12. "DESCRIPTION 2"="Although it is a powerful feature, it might lead to security-problems."
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  16. "COMMENT 2"="Thanks to CptSiskoX (CptSiskoX@GeoCities.com) for this plug-in."
  17.  
  18.  
  19.  
  20. sV1="HKCU\Software\Microsoft\windows\CurrentVersion\Explorer\AutoComplete\AutoSuggest"
  21. sV2="HKCU\Software\Microsoft\Internet Explorer\Main\Use FormSuggest"
  22. sV3="HKCU\Software\Microsoft\Internet Explorer\Main\FormSuggest Passwords"
  23. sYES="yes"
  24. sNO="no"
  25.  
  26. 'Called when the Plugin is started
  27. SUB Plugin_Initialize  
  28.   i=RegReadValue(sV1)
  29.   if i=sYES then SetUIElement 1,true
  30.  
  31.   i=RegReadValue(sV2)
  32.   if i=sYES then SetUIElement 2,true
  33.  
  34.   i=RegReadValue(sV3)
  35.   if i=sYES then SetUIElement 3,true
  36. END SUB
  37.  
  38. 'Called when the Plugin should validate the Data the user has entered
  39. SUB Plugin_CheckData(ElementIndex)
  40. END SUB
  41.  
  42.  
  43.  
  44. 'Called when the Plugin should apply the changes
  45. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  Call Wrt(1,sV1)
  47.  Call Wrt(2,sV2)
  48.  Call Wrt(3,sV3)
  49.  Call Restart()
  50. END SUB
  51.  
  52.  
  53. Sub Wrt(ITM,VAL)
  54.  b=GetUIElement(ITM)
  55.  if b=true then
  56.     Call RegWriteValue(VAL,sYES,1)
  57.  else
  58.     Call RegWriteValue(VAL,sNO,1)
  59.  end if
  60. end sub
  61.  
  62.  
  63. 'Called when the Plugin is about to be removed from memory
  64. SUB Plugin_Terminate
  65. END SUB
  66.  
  67.